home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / DBASE5 / CUA_SAMP.ZIP / MDEXIT.PRG < prev    next >
Text File  |  1994-10-12  |  979b  |  31 lines
  1. *.............................................................................
  2. *
  3. *   Program Name: MDEXIT.PRG          Copyright: Borland International
  4. *   Date Created:  7 Apr 94            Language: dBASE 5.0
  5. *   Time Created: 16:11:09               Author: Borland dBASE R&D
  6. *   /brief/library.src
  7. *.............................................................................
  8.  
  9. *........................................................
  10. * Procedure Name:   MDExit
  11. * Parameters:       None
  12. * Ext Memvars:      Form
  13. * Description:      Closes and releases the current form
  14. *........................................................
  15. PROCEDURE MDExit
  16.     PRIVATE lVoid, oForm
  17.  
  18.     #include "TalkOff.hdb"
  19.  
  20.     oForm = This.Form
  21.     IF TYPE("oForm.ClassName") = "C"
  22.         IF oForm.ClassName = "FORM" .OR. oForm.ClassName = "BROWSE"
  23.             lVoid = oForm.Close()        && close the form
  24.         ENDIF
  25.     ENDIF
  26.  
  27.     #include "TalkOn.hdb"
  28.  
  29. RETURN
  30.  
  31.